home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / host contacted / imengv3.41p1.lha / ImEngV3.41p1 / ARexx / DisplacePixels.rexx < prev    next >
OS/2 REXX Batch file  |  1996-11-12  |  2KB  |  75 lines
  1. /* DisplacePixels 1.01                         */
  2. /* Image Engineer ARexx macro script           */
  3. /* by Simon Edwards                            */
  4. /* 30/6/96                                     */
  5. /* This displaces pixels within a given radius */
  6.  
  7. Options results
  8. signal on error            /* Setup a place for errors to go */
  9.  
  10. if arg()==0 then exit
  11.  
  12. 'GET_NUMBER "Maximum distance to displace" 1 127 "Ok|Cancel" 2 SLIDER'
  13. distance=RESULT
  14.  
  15. source=arg(1)
  16.  
  17. 'PROJECT_INFO' arg(1) 'TYPE'
  18. if RESULT=='COLOUR' then
  19.     do
  20.     'CONVERT_TO_GREY' arg(1)
  21.     workingproject=RESULT
  22.     CALL disperse
  23.  
  24.     CLOSE workingproject
  25.  
  26.     end
  27.  
  28. else
  29.     do
  30.     workingproject=arg(1)
  31.     CALL disperse
  32.  
  33.     end
  34.  
  35. exit
  36.  
  37.  
  38. disperse:
  39.     'NOISE' workingproject '100 INTENSITY RANDOM'
  40.     tmp1=RESULT
  41.     MARK tmp1 ALPHA
  42.     MARK source PRIMARY
  43.     DISPLACE distance 0 BEST
  44.     dis1=RESULT
  45.     CLOSE tmp1
  46.     
  47.     'NOISE' workingproject '100 INTENSITY RANDOM'
  48.     tmp1=RESULT
  49.     MARK tmp1 ALPHA
  50.     MARK dis1 PRIMARY
  51.     DISPLACE 0 distance BEST
  52.     rough=RESULT
  53.     CLOSE tmp1
  54.     CLOSE dis1
  55.     return
  56. exit
  57.  
  58. /*******************************************************************/
  59. /* This is where control goes when an error code is returned by IE */
  60. /* It puts up a message saying what happened and on which line     */
  61. /*******************************************************************/
  62. error:
  63. if RC=5 then do            /* Did the user just cancel us? */
  64.     IE_TO_FRONT
  65.     LAST_ERROR
  66.     'REQUEST "'||RESULT||'"'
  67.     exit
  68. end
  69. else do
  70.     IE_TO_FRONT
  71.     LAST_ERROR
  72.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  73.     exit
  74. end
  75.